Архивы 1C

Чтение данных из файла docx средствами 1С

16.08.2024 Павел Грибов 1C

Задача: спарсить данные из таблицы, которая находится в файле формата docx средствами 1С

Решение: по сути своей файл формата docx является zip архивом, в котором находятся файлы формата xml и внешние ресурсы, типа картинок, стилей и т.п. Текстовое же содержимое находится непосредственно в файле document.xml. Его нужно лишь прочитать, найти в нём таблицу и распарсить данные.

Для начала загрузим файл на сервер, переименуем его в zip, и откроем его при помощи метода 1С «ЧтениеZipФайла», а найденный в архиве файл document.xml извлекем для дальнейшей обработки:

&НаКлиенте
Процедура ВыбратьФайлыИСделатьХорошо(Команда)
	Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.docx)|*.docx";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
		ФайлСМС="";
		Для Каждого ИмяФайла Из МассивФайлов Цикл
			ФайлСМС=ИмяФайла;
		конеццикла;
		если ФайлСМС<>"" тогда 			
					АдресХранилищаФайла = "";			
					Состояние("Перемещаю файл на сервер");
		            ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);   					
					Состояние("Обрабатывается файл "+ФайлСМС);							
					таблицы=ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла);					
		иначе
			сообщить("Файл не выбран");
		конецесли;	
	конецесли;	        
КонецПроцедуры

&НаСервере
Функция ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла)	
	ТЗ=Новый ТаблицаЗначений();	
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилищаФайла);
	ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("zip");
	ДвоичныеДанные.Записать(ИмяВременногоФайлаСпр);     

	Архив = Новый ЧтениеZipФайла(ИмяВременногоФайлаСпр);
	ИмяВременногоФайлаXML = ПолучитьИмяВременногоФайла("xml");
	Для Каждого Элемент Из Архив.Элементы Цикл	
		если  Элемент.Имя="document.xml" тогда			
			Архив.Извлечь(Элемент, КаталогВременныхФайлов(), РежимВосстановленияПутейФайловZIP.НеВосстанавливать);			
		конецесли;
	Конеццикла;	
	Архив.Закрыть();
....

&НаКлиенте

Процедура ВыбратьФайлыИСделатьХорошо(Команда)

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогОткрытияФайла.ПолноеИмяФайла = "";

Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.docx)|*.docx";

ДиалогОткрытияФайла.Фильтр = Фильтр;

ДиалогОткрытияФайла.МножественныйВыбор = ложь;

ДиалогОткрытияФайла.Заголовок = "Выберите файлы";

Если ДиалогОткрытияФайла.Выбрать() Тогда

МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;

ФайлСМС="";

Для Каждого ИмяФайла Из МассивФайлов Цикл

ФайлСМС=ИмяФайла;

конеццикла;

если ФайлСМС<>"" тогда

АдресХранилищаФайла = "";

Состояние("Перемещаю файл на сервер");

ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);

Состояние("Обрабатывается файл "+ФайлСМС);

таблицы=ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла);

иначе

сообщить("Файл не выбран");

конецесли;

КонецПроцедуры

&НаСервере

Функция ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла)

ТЗ=Новый ТаблицаЗначений();

ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилищаФайла);

ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("zip");

ДвоичныеДанные.Записать(ИмяВременногоФайлаСпр);

Архив = Новый ЧтениеZipФайла(ИмяВременногоФайлаСпр);

ИмяВременногоФайлаXML = ПолучитьИмяВременногоФайла("xml");

Для Каждого Элемент Из Архив.Элементы Цикл

если Элемент.Имя="document.xml" тогда

Архив.Извлечь(Элемент, КаталогВременныхФайлов(), РежимВосстановленияПутейФайловZIP.НеВосстанавливать);

конецесли;

Конеццикла;

Архив.Закрыть();

....

Далее файл documnet.xml необходимо загрузить как XML и распарсить в структуру при помощи построителя DOM. После чего останется только найти таблицу по имени узла w:tbl и поместить содержимое в таблицу значений:

ФайлXML = Новый ЧтениеXML;
    ФайлXML.ОткрытьФайл(КаталогВременныхФайлов()+"document.xml");
		ПостроительDOMXML=Новый ПостроительDOM;
		ДокументДом=ПостроительDOMXML.Прочитать(ФайлXML);
		ПрочитаноСтрок=0;		
		для каждого document из ДокументДом.ДочерниеУзлы цикл
			для каждого body из document.ДочерниеУзлы цикл
				для каждого el из body.ДочерниеУзлы цикл
					если el.ИмяУзла="w:tbl" тогда
							для каждого tab_el из el.ДочерниеУзлы цикл							
								если tab_el.ИмяУзла="w:tr" тогда
									если ПрочитаноСтрок=0 тогда
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое));
									иначе	                 
										если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое="Всего:" тогда 
											прервать;
										КонецЕсли;           
										если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое<>"1" тогда
											если tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое<>"" тогда
												нс=ТЗ.Добавить();
												нс[0]=tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое;
												нс[1]=tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое;
												нс[2]=tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое;
												нс[3]=tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое;
												нс[4]=tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое;
													нс[4]=СтрЗаменить(нс[4],",",".");
													нс[4]=СтрЗаменить(нс[4]," ","");
													если нс[4]="" тогда нс[4]="0";конецесли;
													нс[4]=Число(Формат(нс[4],"ЧГ=0"));												
												нс[5]=tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое;
												нс[6]=tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое;
												нс[7]=tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое;
													нс[7]=СтрЗаменить(нс[7],",",".");
													нс[7]=СтрЗаменить(нс[7]," ","");
													если нс[7]="" тогда нс[7]="0";конецесли;
													нс[7]=Число(Формат(нс[7],"ЧГ=0"));												
												
											конецесли;
										конецесли;
									конецесли;	
									ПрочитаноСтрок=ПрочитаноСтрок+1;
								конецесли;
							конеццикла;
							если ПрочитаноСтрок>0 тогда прервать;конецесли;
						конецесли;
						если ПрочитаноСтрок>0 тогда прервать;конецесли;
					конеццикла;
					если ПрочитаноСтрок>0 тогда прервать;конецесли;
				конеццикла;
				если ПрочитаноСтрок>0 тогда прервать;конецесли;
		конеццикла;	
	ФайлXML.Закрыть();
	Возврат ТЗ;

ФайлXML = Новый ЧтениеXML;

ФайлXML.ОткрытьФайл(КаталогВременныхФайлов()+"document.xml");

ПостроительDOMXML=Новый ПостроительDOM;

ДокументДом=ПостроительDOMXML.Прочитать(ФайлXML);

ПрочитаноСтрок=0;

для каждого document из ДокументДом.ДочерниеУзлы цикл

для каждого body из document.ДочерниеУзлы цикл

для каждого el из body.ДочерниеУзлы цикл

если el.ИмяУзла="w:tbl" тогда

для каждого tab_el из el.ДочерниеУзлы цикл

если tab_el.ИмяУзла="w:tr" тогда

если ПрочитаноСтрок=0 тогда

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое));

иначе

если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое="Всего:" тогда

прервать;

КонецЕсли;

если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое<>"1" тогда

если tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое<>"" тогда

нс=ТЗ.Добавить();

нс[0]=tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое;

нс[1]=tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое;

нс[2]=tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое;

нс[3]=tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое;

нс[4]=tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое;

нс[4]=СтрЗаменить(нс[4],",",".");

нс[4]=СтрЗаменить(нс[4]," ","");

если нс[4]="" тогда нс[4]="0";конецесли;

нс[4]=Число(Формат(нс[4],"ЧГ=0"));

нс[5]=tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое;

нс[6]=tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое;

нс[7]=tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое;

нс[7]=СтрЗаменить(нс[7],",",".");

нс[7]=СтрЗаменить(нс[7]," ","");

если нс[7]="" тогда нс[7]="0";конецесли;

нс[7]=Число(Формат(нс[7],"ЧГ=0"));

конецесли;

ПрочитаноСтрок=ПрочитаноСтрок+1;

конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конецесли;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

ФайлXML.Закрыть();

Возврат ТЗ;

Оставить комментарий 1с, xml, извлечение таблицы, чтение docx

1С: Хранение информации во внешних источниках данных

09.08.2024 Павел Грибов 1C, Из жизни

Как то упустил эту возможность платформы 1С и никогда ранее не использовал. А тут вдруг прилетела задача поработать файлами большого размера (xlsx, csv), на основании данных в которых нужно строить различного вида отчёты. Пришла мысль: а почему бы не загрузить данные этих файлов в БД, а затем уже спокойно стоить на основании этих данных отчёты. Какие-то регистры, справочники и т.п. создавать в конфигурации для этого посчитал излишним. Самое правильное, подумал я, хранить всё вообще в какой-то сторонней базе (в моём случае в PostgreSQL). А 1С использовать только для вывода и формирования отчётов. Вот тут то я и вспомнил, что когда то мельком читал про «внешние источники данных» в 1С. Значит пришло время попробовать хранение информации во внешних источниках данных.

Сначала создам БД, с таблицами ls и shemes со структурой вида::

хранение информации во внешних источниках данных.

, где id — автоинкримент типа integer. Забегая вперед, следует отметить, что 1С не умеет при добавлении данных во внешние источники данных, передавать инкрементальное значение, а потому создадим триггер, который будет выполнятся перед транзакцией запроса INSERT, и заменяет значение id, на следующее по порядку:

Подготовка закончена. Теперь подготовим платформу 1С. А именно необходимо установить драйвер ODBC. Под Linux ставим из репозитария, под Windows скачиваем и устанавливаем отсюда: https://www.postgresql.org/ftp/odbc/releases/REL-16_00_0005-mimalloc/

Далее необходимо зайти в конфигуратор 1С и добавить новый источник данных и таблицу в нём. При создании таблицы, необходимо выбрать «Выбрать из списка таблиц внешнего источника данных», и построить строку соединения с БД, вида:

После чего, будут доступны для добавления в конфигуратор таблицы БД:

После того как нажмем «Готово», в конфигураторе будет что-то вроде:

Далее остаётся научится читать,писать и удалять эти данные:

// добвление
	новыелс=внешниеисточникиданных.ОтчетыДля1С.Таблицы.reports_1c_public_ls.СоздатьОбъект();	
	новыелс.name="4232344";
	новыелс.Записать();
// изменение 
	мХарактеристика = внешниеисточникиданных.ОтчетыДля1С.Таблицы.reports_1c_public_ls.НайтиПоПолю("id",3);
	мОбъект = мХарактеристика.ПолучитьОбъект();
	мОбъект.name = "Уря! Чебуршка родил слона!";
	мОбъект.Записать();

//удаление 
	мХарактеристика = внешниеисточникиданных.ОтчетыДля1С.Таблицы.reports_1c_public_ls.НайтиПоПолю("id",3);
	мОбъект = мХарактеристика.ПолучитьОбъект();
	мОбъект.Удалить();
// чтение
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	reports_1c_public_ls.id КАК id,
		|	reports_1c_public_ls.name КАК name,
		|	reports_1c_public_shemes.name КАК name1
		|ИЗ
		|	ВнешнийИсточникДанных.ОтчетыДля1С.Таблица.reports_1c_public_ls КАК reports_1c_public_ls
		|		ЛЕВОЕ СОЕДИНЕНИЕ ВнешнийИсточникДанных.ОтчетыДля1С.Таблица.reports_1c_public_shemes КАК reports_1c_public_shemes
		|		ПО reports_1c_public_ls.sheme = reports_1c_public_shemes.id";
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		сообщить(ВыборкаДетальныеЗаписи.name);
		сообщить(ВыборкаДетальныеЗаписи.name1);
	КонецЦикла;

// добвление

новыелс=внешниеисточникиданных.ОтчетыДля1С.Таблицы.reports_1c_public_ls.СоздатьОбъект();

новыелс.name="4232344";

новыелс.Записать();

// изменение

мХарактеристика = внешниеисточникиданных.ОтчетыДля1С.Таблицы.reports_1c_public_ls.НайтиПоПолю("id",3);

мОбъект = мХарактеристика.ПолучитьОбъект();

мОбъект.name = "Уря! Чебуршка родил слона!";

мОбъект.Записать();

//удаление

мХарактеристика = внешниеисточникиданных.ОтчетыДля1С.Таблицы.reports_1c_public_ls.НайтиПоПолю("id",3);

мОбъект = мХарактеристика.ПолучитьОбъект();

мОбъект.Удалить();

// чтение

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| reports_1c_public_ls.id КАК id,

| reports_1c_public_ls.name КАК name,

| reports_1c_public_shemes.name КАК name1

|ИЗ

| ВнешнийИсточникДанных.ОтчетыДля1С.Таблица.reports_1c_public_ls КАК reports_1c_public_ls

| ЛЕВОЕ СОЕДИНЕНИЕ ВнешнийИсточникДанных.ОтчетыДля1С.Таблица.reports_1c_public_shemes КАК reports_1c_public_shemes

| ПО reports_1c_public_ls.sheme = reports_1c_public_shemes.id";

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

сообщить(ВыборкаДетальныеЗаписи.name);

сообщить(ВыборкаДетальныеЗаписи.name1);

КонецЦикла;

Оставить комментарий 1с, postgresql, внешние источники данных

Создание файла формата DBF в 1С

31.07.2024 Павел Грибов 1C

Задача: создать силами платформы 1c файл в формате DBF (выгрузка в формате dbf)

Решение: собственно в 1С всё есть. Будем использовать метод XBase. При работе с DBF важно помнить, что это очень старый формат хранения данных, но тем не менее до сих пор используется для различного вида обменов. Его ограничениями являются:

длина имени файлов не более 8 символов, поэтому при генерации имени временного файла, не получится использовать функцию ПолучитьИмяВременногоФайла()
файл не должен быть больше 2ггб
имя колонки не может быть длиннее 10 символов
файл создается НЕ в кодировке UTF-8 (он в такую не умеет)
файл нужно сначала создать, потом закрыть, потом открыть и записать в него данные

А так, файл создаётся достаточно просто:


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	объект.РезультирующиеДанные.Очистить();
		нс=объект.РезультирующиеДанные.Добавить();
		нс.Код_фиас="1112232423";
		нс.НомерКвартиры="43";
		нс.Задолженость="20";
		нс.Переплата="12";
		нс.Услуга="КТВ+Домофон";
		нс.ЛС_База="235465";
		нс.ЛС_ЕПД="223234234";
		нс.ЛС_Электрика="445457223";
		нс.Адрес="г. Вологда,ул Лёнина 3";
		нс.АдресДоставки="г. Сокол, ул Лёнина 4";	
КонецПроцедуры

&НаСервере
Функция ВыгрузитьDBFНаСервере()    
	answer=Новый Структура("хранилище,имяфайла");
	НоваяТаблица = Новый XBase;
    НоваяТаблица.Кодировка = КодировкаXBase.ANSI;
	
    НоваяТаблица.Поля.Добавить("fias","S",50);
	НоваяТаблица.Поля.Добавить("flat","S",10);
	НоваяТаблица.Поля.Добавить("credit","N",10,2);
	НоваяТаблица.Поля.Добавить("debet","N",10,2);
	НоваяТаблица.Поля.Добавить("service","S",50);
	НоваяТаблица.Поля.Добавить("ls_base","S",10);
	НоваяТаблица.Поля.Добавить("ls_epd","S",10);
	НоваяТаблица.Поля.Добавить("ls_electro","S",10);
	НоваяТаблица.Поля.Добавить("address","S",100);
	НоваяТаблица.Поля.Добавить("delivery","S",100);

	имя_фр_файла=Лев(Новый УникальныйИдентификатор(),8)+".dbf";
	ПутьКНовомуDBF = КаталогВременныхФайлов()+"/"+имя_фр_файла;
    НоваяТаблица.СоздатьФайл(ПутьКНовомуDBF); 
    НоваяТаблица.ЗакрытьФайл();	
	
	Таблица = Новый XBase;
    Таблица.ОткрытьФайл(ПутьКНовомуDBF,, Ложь);    	
	
	для каждого стр из объект.РезультирующиеДанные цикл
	   Таблица.Добавить();
 	   Таблица.fias = стр.Код_фиас;
 	   Таблица.credit = стр.НомерКвартиры;
	   Таблица.debet = стр.Задолженость;
	   Таблица.service = стр.Переплата;
	   Таблица.ls_base = стр.Услуга;
	   Таблица.ls_epd = стр.ЛС_База;
	   Таблица.ls_electro = стр.ЛС_ЕПД;
	   Таблица.address = стр.address;
	   Таблица.delivery = стр.АдресДоставки;
 	   Таблица.Записать(); 
	конеццикла;	
	
	Таблица.ЗакрытьФайл();
	
	Двоичное=Новый ДвоичныеДанные(ПутьКНовомуDBF);
	answer.хранилище=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);	
	answer.имяфайла=имя_фр_файла;
	
	возврат answer;	
КонецФункции

&НаКлиенте
Процедура ВыгрузитьDBF(Команда)
	рез=ВыгрузитьDBFНаСервере();
	
		Двоичное=ПолучитьИзВременногоХранилища(рез.хранилище);			
		ИмяФайла = КаталогВременныхФайлов() + рез.имяфайла;		
		Двоичное.Записать(ИмяФайла);
		ЗапуститьПриложение(ИмяФайла);	
КонецПроцедуры

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

объект.РезультирующиеДанные.Очистить();

нс=объект.РезультирующиеДанные.Добавить();

нс.Код_фиас="1112232423";

нс.НомерКвартиры="43";

нс.Задолженость="20";

нс.Переплата="12";

нс.Услуга="КТВ+Домофон";

нс.ЛС_База="235465";

нс.ЛС_ЕПД="223234234";

нс.ЛС_Электрика="445457223";

нс.Адрес="г. Вологда,ул Лёнина 3";

нс.АдресДоставки="г. Сокол, ул Лёнина 4";

КонецПроцедуры

&НаСервере

Функция ВыгрузитьDBFНаСервере()

answer=Новый Структура("хранилище,имяфайла");

НоваяТаблица = Новый XBase;

НоваяТаблица.Кодировка = КодировкаXBase.ANSI;

НоваяТаблица.Поля.Добавить("fias","S",50);

НоваяТаблица.Поля.Добавить("flat","S",10);

НоваяТаблица.Поля.Добавить("credit","N",10,2);

НоваяТаблица.Поля.Добавить("debet","N",10,2);

НоваяТаблица.Поля.Добавить("service","S",50);

НоваяТаблица.Поля.Добавить("ls_base","S",10);

НоваяТаблица.Поля.Добавить("ls_epd","S",10);

НоваяТаблица.Поля.Добавить("ls_electro","S",10);

НоваяТаблица.Поля.Добавить("address","S",100);

НоваяТаблица.Поля.Добавить("delivery","S",100);

имя_фр_файла=Лев(Новый УникальныйИдентификатор(),8)+".dbf";

ПутьКНовомуDBF = КаталогВременныхФайлов()+"/"+имя_фр_файла;

НоваяТаблица.СоздатьФайл(ПутьКНовомуDBF);

НоваяТаблица.ЗакрытьФайл();

Таблица = Новый XBase;

Таблица.ОткрытьФайл(ПутьКНовомуDBF,, Ложь);

для каждого стр из объект.РезультирующиеДанные цикл

Таблица.Добавить();

Таблица.fias = стр.Код_фиас;

Таблица.credit = стр.НомерКвартиры;

Таблица.debet = стр.Задолженость;

Таблица.service = стр.Переплата;

Таблица.ls_base = стр.Услуга;

Таблица.ls_epd = стр.ЛС_База;

Таблица.ls_electro = стр.ЛС_ЕПД;

Таблица.address = стр.address;

Таблица.delivery = стр.АдресДоставки;

Таблица.Записать();

конеццикла;

Таблица.ЗакрытьФайл();

Двоичное=Новый ДвоичныеДанные(ПутьКНовомуDBF);

answer.хранилище=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);

answer.имяфайла=имя_фр_файла;

возврат answer;

КонецФункции

&НаКлиенте

Процедура ВыгрузитьDBF(Команда)

рез=ВыгрузитьDBFНаСервере();

Двоичное=ПолучитьИзВременногоХранилища(рез.хранилище);

ИмяФайла = КаталогВременныхФайлов() + рез.имяфайла;

Двоичное.Записать(ИмяФайла);

ЗапуститьПриложение(ИмяФайла);

КонецПроцедуры

Оставить комментарий 1с, dbf, выгрузка, создание, сохранение

1С: Формирование отчёта в обработке из макета

31.07.2024 Павел Грибов 1C

Несколько статей уже на моём сайте на эту тему есть вывод отчета из макета), но они слегка протухли за прошедшее время, и почему-то отображаются не вполне корректно. Потому повторю.

Сначала нужно создать макет:

Нарисуем структуру отчета, присвоим имена блокам, обозначим ячейки которые будут заполнятся параметрами.

Далее на клиенте на форму выведем кнопку, и на неё повесим на неё обработчик заполнения отчета и вывода его на экран:

&НаКлиенте
Процедура СформироватьОтчёт(Команда)
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент=ПечатнаяФормаНаСервере();
	ТабличныйДокумент.Показать();
КонецПроцедуры

&НаКлиенте

Процедура СформироватьОтчёт(Команда)

ТабличныйДокумент = Новый ТабличныйДокумент;

ТабличныйДокумент=ПечатнаяФормаНаСервере();

ТабличныйДокумент.Показать();

КонецПроцедуры

Формирование и вывод отчета из макета:

&НаСервере
Функция ПечатнаяФормаНаСервере()	                                            
 ТабДок=Новый ТабличныйДокумент;	
 Макет=РеквизитФормыВЗначение("Объект").ПолучитьМакет("МакетУдовлетворённость");
 ОбластьШапка=Макет.ПолучитьОбласть("Шапка");
 ТабДок.Вывести(ОбластьШапка);
   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
     ОбластьТушка=Макет.ПолучитьОбласть("тушка");
     ОбластьТушка.Параметры.ид=ВыборкаДетальныеЗаписи.ИдентификаторОпроса;
     ТабДок.Вывести(ОбластьТушка);
   КонецЦикла;	
...
возврат ТабДок;
КонецФункции

&НаСервере

Функция ПечатнаяФормаНаСервере()

ТабДок=Новый ТабличныйДокумент;

Макет=РеквизитФормыВЗначение("Объект").ПолучитьМакет("МакетУдовлетворённость");

ОбластьШапка=Макет.ПолучитьОбласть("Шапка");

ТабДок.Вывести(ОбластьШапка);

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ОбластьТушка=Макет.ПолучитьОбласть("тушка");

ОбластьТушка.Параметры.ид=ВыборкаДетальныеЗаписи.ИдентификаторОпроса;

ТабДок.Вывести(ОбластьТушка);

КонецЦикла;

...

возврат ТабДок;

КонецФункции

Оставить комментарий 1с, макет, формирование отчета

Фоновая обработка больших данных в 1С с прогресс баром

26.07.2024 Павел Грибов 1C

Пару лет назад уже сталкивался с подобной задачей (Фоновая обработка больших данных в 1С). Чуть погуглил, что изменилось за это время. А фактически ничего. До сих пор для того чтобы показать обычный прогресс бар, приходится использовать велосипеды. Временные хранилища, для того чтобы передать в клиента результат работы фоновой функции/процедуры как нельзя было использовать, так и сейчас нельзя. Прогресс бар, как нельзя было использовать без костылей…так и сейчас нельзя. Ну я конечно не смотрел что в БСП, т.к. зачастую приходится делать дописки где БСП или нет, или она древняя

Общая «шаблонная» схема использования фонового выполнения функций в 1С можно организаовать следующим образом:

Запускаем фоновое задание
На клиенте запускаем периодическое задание которое отлавливает вывод «сообщить» на сервере
В фоновом задании при помощи «сообщить» выводим всякую служебную информацию. Если нужно в «клиент» передать данные — записываем временный файл в формате например json, и имя его, опять же при помощи «Сообщить» передаём на клиент.
По окончании фонового задания, закрываем выполнение периодического задания

Запуск фонового задания:

&НаКлиенте
...
ЗапускФоновойЗадачи();
ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки",1,ложь);
...
&НаСервере	
Процедура ЗапускФоновойЗадачи()
	МассивПараметров = Новый Массив;
	МассивПараметров.Добавить(параметры);
	ФЗ = ФоновыеЗадания.Выполнить("СК_ГР_ДлительныеОперации.СпарситьИсходныеДанныеНаСервер",МассивПараметров);	
	ЭтаФорма.ФоновоеИдентификатор = ФЗ.УникальныйИдентификатор;				
КонецПроцедуры

&НаКлиенте

...

ЗапускФоновойЗадачи();

ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки",1,ложь);

...

&НаСервере

Процедура ЗапускФоновойЗадачи()

МассивПараметров = Новый Массив;

МассивПараметров.Добавить(параметры);

ФЗ = ФоновыеЗадания.Выполнить("СК_ГР_ДлительныеОперации.СпарситьИсходныеДанныеНаСервер",МассивПараметров);

ЭтаФорма.ФоновоеИдентификатор = ФЗ.УникальныйИдентификатор;

КонецПроцедуры

Процедура или функция фонового задания обязательно должна находиться в общем модуле:

Функция СпарситьИсходныеДанныеНаСервер(параметры) экспорт;
...
Сообщить("Выполнено 10%");	
....
Сообщить("Выполнено 100%");
ИмяФайла=ПолучитьИмяВременногоФайла("json");
Текст = Новый ЗаписьТекста(ГдеИскать+ИмяФайла, КодировкаТекста.UTF8);
Текст.Записать(json_str);	
Сообщить("Результат:"+ИмяФайла);
...

Функция СпарситьИсходныеДанныеНаСервер(параметры) экспорт;

...

Сообщить("Выполнено 10%");

....

Сообщить("Выполнено 100%");

ИмяФайла=ПолучитьИмяВременногоФайла("json");

Текст = Новый ЗаписьТекста(ГдеИскать+ИмяФайла, КодировкаТекста.UTF8);

Текст.Записать(json_str);

Сообщить("Результат:"+ИмяФайла);

...

Периодическая проверка и «отлов» серверного вывода «Сообщить»:

&НаКлиенте
Процедура ИндикаторВыполненияЗагрузки() Экспорт
	пр=ОпроситьФоновые();
	если пр<>неопределено тогда  
		объект.ИндВыполнения=пр;
		Состояние("Выполнено "+пр);
	конецесли;
КонецПроцедуры

&НаКлиенте
Процедура ИндикаторВыполненияЗагрузки() Экспорт
	пр=ОпроситьФоновые();
	если пр<>неопределено тогда  
		объект.ИндВыполнения=пр;
		Состояние("Выполнено "+пр);
	конецесли;
КонецПроцедуры

&НаСервере
Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт
	Если Состояние = Неопределено Тогда
		Состояние = ФЗ.Состояние;
	КонецЕсли;
	МассивСообщений = Новый Массив;
	Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения);
	Если Сообщения <> Неопределено Тогда
		Для Каждого Сообщение Из Сообщения Цикл
			МассивСообщений.Добавить(Сообщение.Текст);
		КонецЦикла;
	КонецЕсли;
	Возврат МассивСообщений;
КонецФункции

&НаСервере
Функция ОпроситьФоновые()
	прог=неопределено;
	ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ЭтаФорма.ФоновоеИдентификатор);
	если ФЗ=Неопределено тогда
		ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки");
		возврат ложь;
	конецесли;	
	ФСообщения=ПолучитьСообщенияФЗ(ФЗ,,истина);
	Если ФСообщения.Количество() > 0 Тогда
		Для Каждого Сообщение Из ФСообщения Цикл
			Сообщить(Сообщение);
			если найти(Сообщение,"%")>0 тогда
				прог=Число(СтрЗаменить(СтрЗаменить(Сообщение,"Выполнено ",""),"%",""));			
			конецесли;
			если найти(Сообщение,"Результат:")>0 тогда
				ИмяФайла=СтрЗаменить(Сообщение,"Результат:","");
				Текст = Новый ЧтениеТекста(КаталогВременныхФайлов()+ИмяФайла, КодировкаТекста.UTF8);
				СтрокаJson = JsonВСтруктуру(Текст.Прочитать());	
ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки");
			конецесли;				
		КонецЦикла;
	КонецЕсли;
	возврат прог;
КонецФункции

&НаКлиенте

Процедура ИндикаторВыполненияЗагрузки() Экспорт

пр=ОпроситьФоновые();

если пр<>неопределено тогда

объект.ИндВыполнения=пр;

Состояние("Выполнено "+пр);

конецесли;

КонецПроцедуры

&НаКлиенте

Процедура ИндикаторВыполненияЗагрузки() Экспорт

пр=ОпроситьФоновые();

если пр<>неопределено тогда

объект.ИндВыполнения=пр;

Состояние("Выполнено "+пр);

конецесли;

КонецПроцедуры

&НаСервере

Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт

Если Состояние = Неопределено Тогда

Состояние = ФЗ.Состояние;

КонецЕсли;

МассивСообщений = Новый Массив;

Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения);

Если Сообщения <> Неопределено Тогда

Для Каждого Сообщение Из Сообщения Цикл

МассивСообщений.Добавить(Сообщение.Текст);

КонецЦикла;

КонецЕсли;

Возврат МассивСообщений;

КонецФункции

&НаСервере

Функция ОпроситьФоновые()

прог=неопределено;

ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ЭтаФорма.ФоновоеИдентификатор);

если ФЗ=Неопределено тогда

ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки");

возврат ложь;

конецесли;

ФСообщения=ПолучитьСообщенияФЗ(ФЗ,,истина);

Если ФСообщения.Количество() > 0 Тогда

Для Каждого Сообщение Из ФСообщения Цикл

Сообщить(Сообщение);

если найти(Сообщение,"%")>0 тогда

прог=Число(СтрЗаменить(СтрЗаменить(Сообщение,"Выполнено ",""),"%",""));

конецесли;

если найти(Сообщение,"Результат:")>0 тогда

ИмяФайла=СтрЗаменить(Сообщение,"Результат:","");

Текст = Новый ЧтениеТекста(КаталогВременныхФайлов()+ИмяФайла, КодировкаТекста.UTF8);

СтрокаJson = JsonВСтруктуру(Текст.Прочитать());

ОтключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки");

конецесли;

КонецЦикла;

КонецЕсли;

возврат прог;

КонецФункции

В результате будет что-то вроде:

Оставить комментарий 1с, прогресс бар, фоновая работа

1 2 3 … 44 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30